Description pre TService
Otázka od: Robert Suska
12. 8. 2004 12:01
Ahojte!
Napisal som si service. Funguje velmi pekne, ale jedna vec mi neda spat a to
jej popis v computer managery, nejedna sa mi o DisplayName, ale po
description. Neviete ci existuje okrem priameho zapisu do registrov nejaka
f() ktora to zapise sama ?
dakujem za odpovede ;)
S pozdravom,
Robert Suska
amatersky programator Delphi 6 Ent. upd. pck. #2; WinXP Eng. SP1 all updates
Odpovedá: little_bobes@centrum.cz
12. 8. 2004 12:01
> Napisal som si service. Funguje velmi pekne, ale jedna vec mi neda spat a
to
> jej popis v computer managery, nejedna sa mi o DisplayName, ale po
> description. Neviete ci existuje okrem priameho zapisu do registrov nejaka
> f() ktora to zapise sama ?
procedure TMyServer.MyServerAfterInstall(Sender: TService);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
with reg do begin
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('SYSTEM\CurrentControlSet\Services\'+Name, false) then
WriteString('Description', 'Popis sluzby');
CloseKey;
end;
finally
reg.Free;
end;
end;
S pozdravem Bob
D4 c/s, FB1.5
Odpovedá: tondrej@t-online.de
12. 8. 2004 12:50
> Napisal som si service. Funguje velmi pekne, ale jedna vec mi neda spat a to
> jej popis v computer managery, nejedna sa mi o DisplayName, ale po
> description. Neviete ci existuje okrem priameho zapisu do registrov nejaka
> f() ktora to zapise sama ?
Je na to API ChangeServiceConfig2
http://cc.borland.com/ccweb.exe/listing?id=18100
HTH
TOndrej
Odpovedá: Petr Vones
12. 8. 2004 12:53
From: "Robert Suska" <robert.suska@fnusa.cz>
> Napisal som si service. Funguje velmi pekne, ale jedna vec mi neda spat a to
> jej popis v computer managery, nejedna sa mi o DisplayName, ale po
> description. Neviete ci existuje okrem priameho zapisu do registrov nejaka
> f() ktora to zapise sama ?
http://cc.borland.com/ccweb.exe/listing?id=18100
Petr Vones